COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	{ Main program part of AL.  There's not much to it! }
C00004 ENDMK
C⊗;
{ Main program part of AL.  There's not much to it! }

procedure detach; external;
procedure initAlloc; external;				(* from ALLOC.PAS *)
procedure initEditor; external;				(* from EDIT.PAS *)
procedure edit; external;				(* From EDIT *)
procedure initWorld; external;				(* from INTERP.PAS *)
procedure consDef; external;				(* From Interp.pas *)

begin
detach;			(* release tty *)
initAlloc;		(* initialize dynamic storage allocator *)
consDef;		(* define constants - needed by parser *)
initEditor;		(* ditto for the Editor *)
initWorld;		(* get the Interpreter ready too *)

Edit;			(* Edit, parse, interpret, etc.  Exit upon <ctrl>E *)

writeln; writeln('See you around!'); writeln;
end.